home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ums / IntuiNews1_4a.lha / UMS / Rexx / Script.intui < prev    next >
Text File  |  1996-06-06  |  851b  |  50 lines
  1. /*
  2.  
  3.     $VER: Script.intui 1.0 (6.6.96)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Function:
  9.     Start ARexx script from IntuiNews via FileRequester
  10.  
  11.    History:
  12.     0.1   initial version
  13.     1.0   release version
  14.  
  15.    Example for "ums.config":
  16.     ( IntuiNews.Rexx
  17.     ...
  18.         "#? F10 Script.intui Rexx:\n"
  19.     ...
  20.     )
  21.  
  22. */
  23.  
  24. PARSE ARG Drawer
  25.  
  26. /* get public screen name */
  27.  
  28. OPTIONS RESULTS
  29.  
  30. 'INFO SCREEN'
  31. ScreenName=RESULT
  32.  
  33. /* Ask for file */
  34.  
  35. TempFile='T:IN.script'
  36. SHELL COMMAND 'RequestFile' Drawer 'PATTERN #?.intui TITLE "Select ARexx Script" PUBSCREEN' ScreenName '>'||TempFile
  37.  
  38. /* Get filename */
  39.  
  40. IF OPEN('FileName',TempFile,'READ')=0 THEN EXIT 5
  41. Path=READLN('FileName')
  42. CLOSE('FileName')
  43.  
  44. SHELL COMMAND 'Delete' TempFile 'QUIET'
  45.  
  46. /* Start Script!
  47.    If no script was selected Path is empty so that nothing happens. */
  48.  
  49. "'"Path"'"
  50.